home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / z-invt.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  573 b   |  18 lines
  1. 5  PRINT,"Z-INVT BY K2UYH -modified for ibm pc  -- wa2tif":PRINT
  2. 10  REM PRECISION 5
  3. 15   PI=3.1416
  4. 20  REM COMPLEX ARITHMATIC SUBROUTEENS
  5. 40  DG=180/PI: Z0=50
  6. 50  DEF FNMR(AR,AX,BR,BX)=AR*BR-AX*BX
  7. 60  DEF FNMX(AR,AX,BR,BX)=AR*BX+AX*BR
  8. 70  DEF FNDR(AR,AX,BR,BX)=(AR*BR+AX*BX)/(BR^2+BX^2)
  9. 80  DEF FNDX(AR,AX,BR,BX)=(AX*BR-AR*BX)/(BR^2+BX^2)
  10. 90  DEF FNMG(AR,AX)=SQR(AR^2+AX^2)
  11. 120  DEF FNR(MG,AG)=MG*COS(AG/DG)
  12. 130  DEF FNX(MG,AG)=MG*SIN(AG/DG)
  13. 140  PRINT: PRINT "PROGRAM TO CALC PARALLEL EQIV"
  14. 150  PRINT: INPUT "SERIES R"; RS
  15. 160  INPUT "SERIES X"; XS: RP=1/FNDR(1,0,RS,XS)
  16. 170  XP=-1/FNDX(1,0,RS,XS): PRINT: PRINT "RP="; RP, "XP="; XP
  17. 210  END
  18.